home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / BlitzList / BlitzListFiles / Iconify.bb2.txt < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.7 KB  |  71 lines
  1.  
  2.  
  3. WBStartup
  4. NoCli
  5. WbToScreen 0
  6. ShowScreen 0
  7.  
  8.  
  9. DEFTYPE.Screen scr_wb
  10. suc.b = GetScreenData_(&scr_wb, SizeOf.Screen, #WBENCHSCREEN, 0)
  11.  
  12. .init_window      ; using tags for extnewwindow struct (v37+)
  13.  
  14. DEFTYPE.l iflg,wflg
  15.  
  16. Dim zoomsize.w(4)
  17. Dim winTag.TagItem(16)      ; see libincs:utility/tagitem.bb2
  18.  
  19. WindowTitle.s = "My extended Window"
  20. myWnd = 0 : myGList = 0 : myMList = 0
  21.  
  22. ileft=100
  23. itop=30
  24. iwidth=230
  25. iheight=scr_wb\BarHeight + 1 ; Contract to Menu height
  26.  
  27. zoomsize(0) =ileft          ; Left   - of zoomed window
  28. zoomsize(1) =itop           ; Top
  29. zoomsize(2) =iwidth         ; Width  - min width of system gadgets
  30. zoomsize(3) =iheight        ; Height - min height 10
  31.  
  32. iflg = #IDCMP_NEWSIZE|#IDCMP_REFRESHWINDOW
  33. iflg = iflg|#IDCMP_MENUPICK|#IDCMP_IDCMPUPDATE
  34. iflg = iflg|#IDCMP_GADGETDOWN|#IDCMP_GADGETUP|#IDCMP_CLOSEWINDOW
  35. iflg = iflg|#IDCMP_ACTIVEWINDOW|#IDCMP_CHANGEWINDOW
  36. iflg = iflg|#IDCMP_RAWKEY
  37.  
  38. wflg = #WFLG_DRAGBAR|#WFLG_DEPTHGADGET|#WFLG_CLOSEGADGET
  39. wflg = wflg|#WFLG_ACTIVATE|#WFLG_NW_EXTENDED
  40. wflg = wflg|#WFLG_SMART_REFRESH|#WFLG_NEWLOOKMENUS
  41.  
  42. winTag(0)\ti_Tag  = #WA_Left,100       ; wleft, wtop etc, are
  43. winTag(1)\ti_Tag  = #WA_Top,30         ;
  44. winTag(2)\ti_Tag  = #WA_Width,250     ;    all deftype.w
  45. winTag(3)\ti_Tag  = #WA_Height,80   ;
  46. winTag(4)\ti_Tag  = #WA_IDCMP,iflg
  47. winTag(5)\ti_Tag  = #WA_Flags,wflg
  48. winTag(6)\ti_Tag  = #WA_AutoAdjust,True
  49. winTag(7)\ti_Tag  = #WA_Zoom,&zoomsize(0)
  50. winTag(8)\ti_Tag  = #TAG_DONE,0
  51.  
  52. DefaultIDCMP iflg
  53. WindowTags myWnd,wflg,WindowTitle,&winTag(0)
  54. Use Window myWnd
  55.  
  56. ;GTSetMenu myMList
  57. AttachGTList myGList,myWnd
  58.  
  59. CatchDosErrs            ; errors on configured public screen please.
  60. ShowRequesters 2
  61.  
  62. Repeat
  63.  
  64.   ev.l=WaitEvent
  65.  
  66. Until ev=#IDCMP_CLOSEWINDOW
  67.  
  68. ;MouseWait
  69. ;CloseWindow
  70. End
  71.